home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / dbase / Scion507.lha / Scion507 / InstallScion < prev    next >
Text File  |  1998-02-10  |  55KB  |  1,380 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;
  3. ;;; Install Scion Genealogist Version 5
  4. ;;;
  5. ;;; $VER: Install_Scion 2.01 (3 Dec 1997)
  6. ;;;
  7. ;;; This is the installation script for Scion Genealogist version 5
  8. ;;;
  9. ;;; Copyright © 1993-1998 Robbie J Akins, Wellington, New Zealand.
  10. ;;; All Rights Reserved
  11. ;;; v2.00: Original version, first official release, by Robbie J Akins
  12. ;;;
  13. ;;; `Nederlands' language strings by Freddy Ariës
  14. ;;; `Deutsch' language strings by Freddy Ariës
  15. ;;; `Türkçe' language strings by Tayfun Alacakaptan
  16. ;;;
  17. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  18. (set TESTING 0) ; 1 = test mode (relatively safe, 0 = distribution mode
  19.  
  20. (if (= TESTING 1)
  21.     (user 2))    ; Force "expert" mode regardless of installer defaults. Naughty!
  22.  
  23. (set @user-level 2) ; "Expert" mode preferred
  24.  
  25. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  26. ;;;
  27. ;;; Initialize variables
  28. ;;;
  29. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  30. ;
  31. (set ProgramName    "Scion Genealogist")        ; programme name
  32. (set ProgramBaseName    "Scion")            ; programme base name
  33. (set VersionNum        "5.07")                ; programme version number
  34. (set LogoName        "ScionLogo")            ; programme logo name
  35.  
  36. (set ArchiveName    "ScionSupport.lha")        ; archive name
  37. (set ArchiveLocn    "")                ; archive location
  38. (set ScionArchive (tackon ArchiveLocn ArchiveName))
  39.  
  40. (set ArexxArchiveName    "ScionArexx.lha")        ; archive name
  41. (set ArexxArchiveLocn    "")                ; archive location
  42. (set ArexxArchive (tackon ArexxArchiveLocn ArexxArchiveName))
  43.  
  44. (set InstallScion    0)        ; 1 = install, 0 = don't install
  45. (set InstallArexx    0)        ; 1 = install, 0 = don't install
  46. (set InstallOnlineHelp    0)        ; 1 = install, 0 = don't install
  47. (set InstallExample    0)        ; 1 = install, 0 = don't install
  48. (set InstallReadMe    0)        ; 1 = install, 0 = don't install
  49. (set InstallScionCats    0)        ; 1 = install, 0 = don't install
  50.  
  51. (set InstallEnglish    0)        ; 1 = install, 0 = don't install
  52. (set InstallDutch    0)        ; 1 = install, 0 = don't install
  53. (set InstallTurkish    0)        ; 1 = install, 0 = don't install
  54. (set InstallGerman    0)        ; 1 = install, 0 = don't install
  55. (set InstallNorwegian    0)        ; 1 = install, 0 = don't install
  56. (set InstallItalian    0)        ; 1 = install, 0 = don't install
  57. (set InstallSwedish    0)        ; 1 = install, 0 = don't install
  58. (set InstallFinnish    0)        ; 1 = install, 0 = don't install
  59. (set InstallFrench    0)        ; 1 = install, 0 = don't install
  60. (set Localised        0)        ; 1 = localised, 0 = only english
  61.  
  62. ; Set whether wish to confirm lha extraction was okay
  63. (set xconfirmCopy    0)            ; 1 = don't confirm, 0 = confirm
  64. (set delscionarchive 0)            ; 1 = delete archive, 0 = don't
  65. (set delarexxarchive 0)            ; 1 = delete archive, 0 = don't
  66.  
  67. ;
  68. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  69. ;;;
  70. ;;; English and foreign language messages and "variables"
  71. ;;;
  72. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  73. ;
  74. ; NOTE: The next three variables must appear before the rest of the strings
  75. (set #ArexxScripts    "ARexx Scripts")
  76. (set #OnLineHelp    "On-line Help")
  77. (set #Example        "Example Database")
  78. (set #CatFiles        "Language Support Files")
  79. (set #ReadmeFiles    "Documentation Files")
  80.  
  81. (set #copyingscion    "Copying the Scion archive to RAM:...")
  82. (set #copyingarexx    "Copying the ARexx archive to RAM:...")
  83. (set #copy_err1        "An error occurred during the copying of %s")
  84. (set #err_msg (cat    "\n\n"
  85.             "Press the Proceed button to stop the installation procedure.\n"))
  86. (set #install_msg (cat "\n\nScion Genealogist installation script.\n\n"
  87.             "This script installs Scion Genealogist\n"
  88.             (" Version %s on your Amiga, " VersionNum)
  89.             "along with associated support files.\n\n"
  90.             "Scion Genealogist © 1993-1998 Robbie Akins\n"
  91.             "All rights reserved."))
  92.  
  93. (set #dirselect        "Please select the directory where you want to install %s.")
  94. (set #prevselect (cat    "Please chose the location where %s is currently located "
  95.             "so that %s can be installed in the correct location."))
  96. (set #setDirPathHelp (cat "This part of the installation is asking you where you "
  97.             "would like to place %s.\n\nFor current %s owners, you "
  98.             "should select the directory that is the current location "
  99.             "of %s. If you choose a different location, then the "
  100.             "current (existing) module(s) will be in a different "
  101.             "place than the newly-installed module(s).\n"))
  102.  
  103. (set #setPrevLocHelp (cat "This part of the installation is asking you where "
  104.             "to place %s.\n\nFor current %s owners, you must "
  105.             "select the directory that is the current location "
  106.             "of %s. If you choose a different location, then the "
  107.             "%s will not be installed in the correct place and "
  108.             "hence will not be available.\n\nYou CAN install "
  109.             "%s before installing %s, but you must select the "
  110.             "directory where you eventually intend to install %s.\n"))
  111. (set #setPrevLocHelp (#setPrevLocHelp #OnLineHelp ProgramName ProgramName #OnLineHelp #OnLineHelp ProgramName ProgramName))
  112. (set #pathhelpextra (cat "\n"
  113.             "NOTE: If you are using the Installer program's "
  114.             "function to create a new directory (using \"Make New Drawer...\"), "
  115.             "it is highly recommended that you DO NOT include "
  116.             "spaces in the drawer name.  Following this advice "
  117.             "will avoid any problems accessing the directory, "
  118.             "especially from ARexx scripts.\n"
  119.             "\n"
  120.             @askdir-help))
  121. (set #installing "Installing...")
  122.  
  123. (set #lha_error1     "Error decompressing %s from %s into the %s directory.\n")
  124. (set #lha_error2 (cat    "\n"
  125.             "Be sure that the directory you have specified as the "
  126.             "destination exists and has enough free space in it "
  127.             "to accept new files. Also be sure that if the file to "
  128.             "be copied already exists, that the existing file "
  129.             "isn't protected from being overwritten or deleted."))
  130. (set #ver_err1        ("\%s version %s requires at least AmigaOS 2.04 to run." ProgramName VersionNum))
  131. (set #installoptions (cat ("Select the parts of the %s package you want to install " ProgramName)
  132.             "at this time."))
  133. (set #installopthelp (cat "This part of the installation procedure lets you select the "
  134.             "parts of the distribution you want to install at this time.\n"
  135.             "\n"
  136.             @askoptions-help))
  137. (set #languageoptions (cat "Select those languages that you want to install at this time.\n\n"
  138.             "NOTE: Not all languages are fully supported."))
  139. (set #languageopthelp (cat "This part of the installation procedure lets you select the "
  140.             "languages that you want to install at this time.\n\n"
  141.             "Not all languages are fully supported, so even if you "
  142.             "select a particular language, on-line help and/or "
  143.             "'localization' may not actually be available at this "
  144.             "time. If you would like to help with a translation, "
  145.             "please contact the author.\n\n"
  146.             @askoptions-help))
  147. (set #makedir         "The directory that has been specified does not exist and is about to be created.")
  148. (set #nolocale        "\n\n\nYour computer does not have support for languages other than English, and so only the English version of the distribution will be installed.")
  149. (set #oldscionprompt (cat "\n\nYou currently have version %ld.%s of %s installed "
  150.                         "in the directory you have selected. Do you want to "
  151.             "replace it with version %s?"))
  152. (set #oldscionhelp (cat "The directory that you have selected already has a "
  153.                         "copy of %s installed. If you wish to overwrite this "
  154.             "existing copy with version %s, select \"Yes\". "
  155.             "If you select \"No\", you will be asked to once again "
  156.             "select the location where you want to install the "
  157.             "programme. Select another destination if you do not "
  158.             "want to overwrite your existing copy."))
  159.  
  160. ;=============================================================================
  161. ; Dutch strings
  162. ;
  163. (if (= @language "nederlands")
  164.   (
  165.     (set #ArexxScripts    "ARexx scripts")
  166.     (set #OnLineHelp    "On-line help")
  167.     (set #Example    "Voorbeeld databank")
  168.     (set #CatFiles    "Ondersteunende taal bestanden")
  169.     (set #ReadmeFiles    "Documentatie bestanden")
  170.  
  171.     (set #copyingscion    "Copiëer Het Scion archief naar RAM:...")
  172.     (set #copyingarexx    "Copiëer het ARexx archief naar RAM:...")
  173.     (set #copy_err1    "Er is een fout opgetreden